home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t4.d64 / LISTER.BAS < prev    next >
BASIC Source File  |  2009-01-18  |  1KB  |  59 lines
  1.    10 ! list contents of source files
  2.    12 
  3.    14 on ioerr ignore
  4.    15
  5.    16 on eof
  6.    17    end_of_file% = 1
  7.    18    resume next
  8.    19 endon
  9.    20
  10.    30 print chr$(12); 'lister program beginning ...'
  11.    40
  12.    50 loop
  13.    60    print chr$(4); 'enter filename ';
  14.    70    linput filename$
  15.    80    if filename$ = '' then quit
  16.    90    call list_the_file
  17.   100 endloop
  18.   110
  19.   120 print chr$(4); '... lister program terminating'
  20.   130
  21.   140 stop
  22.   150
  23.   160
  24.   170 proc list_the_file
  25.   180
  26.   190    guess
  27.   200       open #2, filename$, input
  28.   210       if io_status <> 0 then quit
  29.   220       call do_the_list
  30.   230    admit
  31.   240       print 'unable to open file '; filename$
  32.   250    endguess
  33.   260
  34.   270 endproc
  35.   280
  36.   290
  37.   300 proc do_the_list
  38.   310
  39.   320    print chr$(12); '< beginning of file >'; chr$(4)
  40.   330    count = 21
  41.   335    end_of_file% = 0
  42.   340    loop
  43.   350       linput #2, record$
  44.   360       if end_of_file% then quit
  45.   370       print record$
  46.   380       count = count - 1
  47.   390       if count = 0
  48.   400          print 'continue ';
  49.   410          linput response$
  50.   420          print chr$(12)
  51.   430          count = 21
  52.   440       endif
  53.   450    endloop
  54.   460    print chr$(4); '< end of file >'
  55.   470    close #2
  56.   480
  57.   490 endproc
  58.   500
  59.